home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / sprites.lha / sprites_1.0.s next >
Encoding:
Text File  |  1993-09-26  |  3.7 KB  |  146 lines
  1. ùúùú????????????????????????????????????????*********************************
  2. *                *
  3. *    SPRITES v.1.0        *
  4. *         by            *
  5. *    JUDAS/SAINT GROUP    *
  6. *                *
  7. * Date:27.09.93     1:35:00    *
  8. *                *
  9. * Program wyswietla spritea    *
  10. * o rozmiarach 16x24 piksele    *
  11. * w trzech kolorach na pozycji    *
  12. * ekranu 180,160 i czeka na    *
  13. * nacisniecie lewgo klawisza    *
  14. * myszki.            *
  15. *                *
  16. *********************************
  17.  
  18. Custom        equ    $dff000
  19. CIAAPRA        equ    $bfe001
  20.  
  21. COP1LC        equ    $080
  22. COPJMP1        equ    $088
  23. DIWSTRT        equ    $08e
  24. DIWSTOP        equ    $090
  25. DDFSTRT        equ    $092
  26. DDFSTOP        equ    $094
  27. DMACON        equ    $096
  28. BPL1PTH        equ    $0e0
  29. BPL1PTL        equ    $0e2
  30. BPLCON0        equ    $100
  31. COLOR00        equ    $180
  32. COLOR17        equ    $1a2
  33. COLOR18        equ    $1a4
  34. COLOR19        equ    $1a6
  35. SPR0PTH        equ    $120
  36. SPR0PTL        equ    $122
  37. SPR1PTH        equ    $124
  38. SPR1PTL        equ    $126
  39. SPR2PTH        equ    $128
  40. SPR2PTL        equ    $12a
  41. SPR3PTH        equ    $12c
  42. SPR3PTL        equ    $12e
  43. SPR4PTH        equ    $130
  44. SPR4PTL        equ    $132
  45. SPR5PTH        equ    $134
  46. SPR5PTL        equ    $136
  47. SPR6PTH        equ    $138
  48. SPR6PTL        equ    $13a
  49. SPR7PTH        equ    $13c
  50. SPR7PTL        equ    $13e
  51.  
  52. ***********************************************************************
  53.         SECTION    Sprites1,code_p
  54. ;-----------------------------------------------------------------------
  55. Start:        movem.l    d0-a7,-(sp)        ;zachowanie rejestrow
  56. ;-----------------------------------------------------------------------
  57.         move.l    #Screen,d0        ;ustawienie bitplanow
  58.         move.w    d0,Screen_lo
  59.         swap    d0
  60.         move.w    d0,Screen_hi
  61. ;-----------------------------------------------------------------------
  62.         move.l    #Sprite,d0        ;ustawienie listy spritea
  63.         move.w    d0,Sprite_lo
  64.         swap    d0
  65.         move.w    d0,Sprite_hi
  66. ;-----------------------------------------------------------------------
  67.         lea    Custom,a5        ;aktywacja Coppera
  68.         move.l    #CopperList,COP1LC(a5)
  69.         clr.w    COPJMP1(a5)
  70. ;-----------------------------------------------------------------------
  71.         move.w    #$8220,DMACON(a5)    ;wîæczenie DMA sprites
  72. ;-----------------------------------------------------------------------
  73. MouseWait:    btst    #6,CIAAPRA        ;czekanie na myszke
  74.         bne.b    MouseWait
  75. ;-----------------------------------------------------------------------
  76.         movem.l    (sp)+,d0-a7        ;odtworzenie rejestrow
  77.         moveq    #0,d0            ;all ok
  78. End:        rts
  79. ************************************************************************
  80.         SECTION    Sprites2,data_c
  81. ;-----------------------------------------------------------------------
  82. Sprite:
  83.         dc.w    $a08a,$b800        ;x_poz,y_poz,wysokosc
  84.         dc.w    $ffff,$0000        ;dane duszka
  85.         dc.w    $ffff,$0000
  86.         dc.w    $ffff,$0000
  87.         dc.w    $ffff,$0000
  88.         dc.w    $ffff,$0000
  89.         dc.w    $ffff,$0000
  90.         dc.w    $ffff,$0000
  91.         dc.w    $ffff,$0000
  92.         dc.w    $0000,$ffff
  93.         dc.w    $0000,$ffff
  94.         dc.w    $0000,$ffff
  95.         dc.w    $0000,$ffff
  96.         dc.w    $0000,$ffff
  97.         dc.w    $0000,$ffff
  98.         dc.w    $0000,$ffff
  99.         dc.w    $0000,$ffff
  100.         dc.w    $ffff,$ffff
  101.         dc.w    $ffff,$ffff
  102.         dc.w    $ffff,$ffff
  103.         dc.w    $ffff,$ffff
  104.         dc.w    $ffff,$ffff
  105.         dc.w    $ffff,$ffff
  106.         dc.w    $ffff,$ffff
  107.         dc.w    $ffff,$ffff
  108.         dc.w    $0,0            ;koniec danych
  109. ;-----------------------------------------------------------------------
  110. CopperList:
  111.         dc.w    DIWSTRT,$2981
  112.         dc.w    DIWSTOP,$29c1
  113.         dc.w    DDFSTRT,$0038        ;ekran lores
  114.         dc.w    DDFSTOP,$00d0
  115.         dc.w    BPLCON0,$1200        ;1 bitplan
  116.         dc.w    COLOR00,$0000        ;tlo=czrne
  117.         dc.w    COLOR17,$0f00        ;czerwony
  118.         dc.w    COLOR18,$00f0        ;zielony
  119.         dc.w    COLOR19,$000f        ;niebieski
  120.         dc.w    BPL1PTH
  121. Screen_hi:    dc.w    $0000
  122.         dc.w    BPL1PTL
  123. Screen_lo:    dc.w    $0000
  124.         dc.w    SPR0PTH
  125. Sprite_hi:    dc.w    $0000
  126.         dc.w    SPR0PTL
  127. Sprite_lo:    dc.w    $0000
  128.         dc.w    SPR1PTH,$0000        ;wylaczenie nieuzywanych 
  129.         dc.w    SPR1PTL,$0000        ;spritesow
  130.         dc.w    SPR2PTH,$0000
  131.         dc.w    SPR2PTL,$0000
  132.         dc.w    SPR3PTH,$0000
  133.         dc.w    SPR3PTL,$0000
  134.         dc.w    SPR4PTH,$0000
  135.         dc.w    SPR4PTL,$0000
  136.         dc.w    SPR5PTH,$0000
  137.         dc.w    SPR5PTL,$0000
  138.         dc.w    SPR6PTH,$0000
  139.         dc.w    SPR6PTL,$0000
  140.         dc.w    SPR7PTH,$0000
  141.         dc.w    SPR7PTL,$0000
  142.  
  143.         dc.w    $ffff,$fffe
  144. ;-----------------------------------------------------------------------
  145. Screen:        blk.b    40*256,0
  146.